home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 May / PCWMAY06.iso / Software / Resources / PaperCut Quota 6.1 / pc-setup.exe / {app} / delete-virtual-dir.vbs < prev    next >
Text File  |  2005-10-17  |  918b  |  39 lines
  1. Option Explicit
  2.  
  3. 'On Error Resume Next
  4.  
  5. Dim oArgs
  6. Set oArgs = WScript.Arguments
  7. If oArgs.Count <> 1 Then
  8.     ErrorExit "Require the 'virtual-dir-name' parameter"
  9. End If
  10.  
  11. Dim sComputer, sVirtualDir, oVDir
  12. sComputer = "localhost"
  13. sVirtualDir = oArgs(0)
  14.  
  15. DebugLog "Check if virtual dir exists"
  16. Set oVDir = GetObject("IIS://" & sComputer & "/W3SVC/1/Root/" & sVirtualDir)
  17. If Err.Number = 0 Then
  18.     ' Virtual dir exists, so delete.
  19.     Dim oRoot, oSite
  20.     Set oSite = GetObject("IIS://" & sComputer & "/W3SVC/1")
  21.     
  22.     Set oRoot = oSite.GetObject( "IIsWebVirtualDir", "Root")
  23.     
  24.     DebugLog "Delete virtual dir"
  25.     oRoot.Delete "IIsWebVirtualDir", sVirtualDir 
  26. End If
  27.  
  28.  
  29. Sub DebugLog(sMsg)
  30.     'WScript.Echo sMsg
  31. End Sub
  32.  
  33.  
  34. ' Displays a message to the user then exits with error code.
  35. Sub ErrorExit(sMsg)
  36.     On Error Resume Next
  37.     WScript.Echo sMsg
  38.     WScript.Quit 1
  39. End Sub